home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •AdventureLand• / Adventures / SpaceEscape •••• / SpaceEscape ееее / card_38895.txt < prev    next >
Text File  |  1990-10-02  |  2KB  |  82 lines

  1. -- card: 38895 from stack: in
  2. -- bmap block id: 39129
  3. -- flags: 4000
  4. -- background id: 8902
  5. -- name: nav table
  6. ----- HyperTalk script -----
  7. on opencard
  8.   put "This seems to be a table.  Gosh."into field "info"
  9.   pass opencard
  10. end opencard
  11.  
  12.  
  13.  
  14. -- part 1 (button)
  15. -- low flags: 00
  16. -- high flags: A003
  17. -- rect: left=161 top=302 right=323 bottom=192
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 1
  21. -- font id: 0
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: OK
  26. ----- HyperTalk script -----
  27. on mouseUp
  28.   global filter
  29.   if filter is "yes" then
  30.     beep
  31.     exit mouseup
  32.   end if
  33.   global donteat
  34.   get bkgnd field "do what"
  35.   if the number of words in it > 1 then
  36.     beep 2
  37.     oneword
  38.     exit mouseup
  39.   end if
  40.   if it contains "close" then
  41.     put "The table cannot be closed." into field "info"
  42.     exit mouseup
  43.   end if
  44.   if it contains "examine" or it contains "look" then
  45.     send "opencard" to this card
  46.     exit mouseup
  47.   end if
  48.   if it contains "hit" or it contains "kick" or it contains "punch" then
  49.     ouch
  50.     exit mouseup
  51.   end if
  52.   if it contains "get" or it contains "move" or it contains "pull" then
  53.     put "The table is too heavy to move." into field "info"
  54.     exit mouseup
  55.   end if
  56.   if it contains "eat" or it contains "consume" then
  57.     put donteat into field "info"
  58.     exit mouseup
  59.   end if
  60.   if it contains "open" then
  61.     put "The table cannot be opened." into field "info"
  62.     exit mouseup
  63.   end if
  64.   if it is "" then
  65.     put "Speak up.  I can't hear you." into field "info"
  66.     exit mouseup
  67.   end if
  68.   idunno
  69. end mouseUp
  70.  
  71. on cont
  72. end cont
  73.  
  74.  
  75.  
  76. -- part contents for background part 2
  77. ----- text -----
  78. What would you like to do with the Art?
  79.  
  80. -- part contents for background part 7
  81. ----- text -----
  82. Table